home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / fmlelm.tst < prev    next >
Text File  |  1999-09-16  |  2KB  |  45 lines
  1. mode(-1)
  2. if addf('1','1')<>'2' then pause,end
  3. if addf('1','0')<>'1' then pause,end
  4. if addf('0','1')<>'1' then pause,end
  5. if addf('0','0')<>'0' then pause,end
  6. if addf('1','-1')<>'0' then pause,end
  7. if addf('-1','1')<>'0' then pause,end
  8. if addf('-1','0')<>'-1' then pause,end
  9. if addf('0','-1')<>'-1' then pause,end
  10.  
  11. if addf('1','a')<>'a+1' then pause,end
  12. if addf('a','1')<>'a+1' then pause,end
  13. if addf('a','0')<>'a' then pause,end
  14. if addf('0','a')<>'a' then pause,end
  15. if addf('a','-1')<>'a-1' then pause,end
  16. if addf('-1','a')<>'a-1' then pause,end
  17. if addf('a','b')<>'a+b' then pause,end
  18. if addf('a+b','c')<>'a+b+c' then pause,end
  19. if addf('c','a+b')<>'c+a+b' then pause,end
  20. if addf('a+b','a+b')<>'a+b+a+b' then pause,end
  21. if addf('a+b','a-b')<>'a+a' then pause,end
  22. if addf('2*a+b','a-b')<>'2*a+a' then pause,end
  23.  
  24. if mulf('1','1')<>'1' then pause,end
  25. if mulf('1','0')<>'0' then pause,end
  26. if mulf('0','1')<>'0' then pause,end
  27. if mulf('0','0')<>'0' then pause,end
  28. if mulf('1','-1')<>'-1' then pause,end
  29. if mulf('-1','1')<>'-1' then pause,end
  30. if mulf('-1','0')<>'0' then pause,end
  31. if mulf('0','-1')<>'0' then pause,end
  32.  
  33. if mulf('1','a')<>'a' then pause,end
  34. if mulf('a','1')<>'a' then pause,end
  35. if mulf('a','0')<>'0' then pause,end
  36. if mulf('0','a')<>'0' then pause,end
  37. if mulf('a','-1')<>'-a' then pause,end
  38. if mulf('-1','a')<>'-a' then pause,end
  39. if mulf('a','b')<>'a*b' then pause,end
  40. if mulf('a+b','c')<>'(a+b)*c' then pause,end
  41. if mulf('c','a+b')<>'c*(a+b)' then pause,end
  42. if mulf('a+b','a+b')<>'(a+b)*(a+b)' then pause,end
  43. if mulf('2*a+b','a-b')<>'(2*a+b)*(a-b)' then pause,end
  44.  
  45.